home *** CD-ROM | disk | FTP | other *** search
/ World Tours: Brazil / WorldTours: Brazil.iso / pc / content / main.dir / 00097_Script_selectItem < prev    next >
Text File  |  2007-04-22  |  937b  |  36 lines
  1. global ansShowList,curQuesNum,ansList,bingoNum,QuestionUsed
  2.  
  3. on mouseup
  4.   if ansList[curQuesNum]=0 then
  5.     n=the currentspriteNum-12
  6.     ansList[curQuesNum]=n
  7.     if ansShowList[curQuesNum][n]=1 then
  8.       bingoNum=bingoNum+1
  9.       member("right num").text=bingoNum&&"/"&&QuestionUsed
  10.     end if
  11.     sprite(42).showKey()
  12.     if getOne(ansList, 0)=0 then
  13.       if bingoNum=QuestionUsed then
  14.         sprite(28).member=member("congrats")
  15.       else
  16.         sprite(28).member=member("try again")
  17.       end if
  18.       member("right rate").text=bingoNum*100/QuestionUsed&&"%"
  19.       sprite(27).member=member("right rate")
  20.     end if
  21.   end if
  22. end
  23.  
  24. on mouseenter
  25.   if ansList[curQuesNum]=0 then
  26.     sprite(the currentspriteNum+3).foreColor=5
  27.     sprite(the currentspriteNum+6).foreColor=5
  28.   end if
  29. end
  30.  
  31. on mouseleave
  32.   sprite(the currentspriteNum+3).foreColor=0
  33.   sprite(the currentspriteNum+6).foreColor=0
  34. end
  35.  
  36.